home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 0022-3.564 / dmg-3452 / source / asm / escape.s < prev   
Text File  |  1987-04-21  |  2KB  |  108 lines
  1. * Example VT-52 sequences
  2. * coded by RUNRIG
  3.  
  4.     pea     TEXT        - address of our text message with codes
  5.     move.w    #9,-(a7)    - function number print line
  6.     trap    #1        - call GEMDOS
  7.     addq.l    #6,a7        - fix stack
  8.     
  9.     move.w    #7,-(a7)    - wait key
  10.     trap    #1        - call GEMDOS
  11.     addq.l    #2,a7        - fix stack
  12.     
  13.     clr.l    -(a7)        - exit
  14.     trap    #1        - aaaahhhh....
  15.  
  16. * Here is message. Un-rem the VT-52 code you wish to use
  17.  
  18. TEXT:    
  19.  
  20. * Escape A - cursor up:
  21. ;    dc.b    27,"A"
  22.  
  23. * Escape B - cursor down:
  24. ;    dc.b    27,"B"
  25.  
  26. * Escape C - cursor right:
  27. ;     dc.b    27,"C"
  28.  
  29. * Escape D - cursor left:
  30. ;     dc.b    27,"D"
  31.  
  32. * Escape E - Clr Home:
  33. ;    dc.b    27,"E"
  34.  
  35. * Escape H - Cursor home
  36. ;    dc.b    27,"H"
  37.  
  38. * Escape I - Cursor up
  39. ;    dc.b    27,"I"
  40.  
  41. * Escape J - Clear below cursor:
  42. ;     dc.b    27,"J"
  43.  
  44. * Escape K - Clear remainder of line:
  45. ;     dc.b    27,"K"
  46.  
  47. * Escape L - Insert line:
  48. ;    dc.b    27,"L"
  49.  
  50. * Escape M - Delete line:
  51. ;    dc.b    27,"M"
  52.  
  53. * Escape Y - Position cursor
  54. * For this function, the parameters needed are:
  55. * 1 - the line+32    2 - the column+32 
  56. * For example, if wanted to position the cursor at line 8, column 24:
  57. ;    dc.b    27,"Y",32+8,32+24
  58.  
  59. * Escape b - Change text colour
  60. * Example, change text colour to colour 3:
  61. ;    dc.b    27,"b",3
  62.  
  63. * Escape c - Change background colour
  64. * Example, change background to colour 8:
  65. ;     dc.b    27,"c",8
  66.  
  67. * Escape d - Clear screen to current current cursor position:
  68. ;    dc.b    27,"d"
  69.  
  70. * Escape e - Enable cursor:
  71. ;    dc.b    27,"e"
  72.  
  73. * Escape f - Disable cursor:
  74. ;    dc.b    27,"f"
  75.  
  76. * Escape j - Sace cursor position
  77. ;    dc.b    27,"j"
  78.  
  79. * Escape k - Set cursor to saved position
  80. ;     dc.b    27,"k"
  81.  
  82. * Escape l - Clear line
  83. ;    dc.b    27,"l"
  84.  
  85. * Escape o - Clear line from start to end
  86. ;    dc.b    27,"o"
  87.  
  88. * Escape p - Reverse on
  89. ;    dc.b    27,"p"
  90.  
  91. * Escape q - Reverse off
  92. ;    dc.b    27,"q"
  93.  
  94. * Escape v - Overflow on
  95. ;    dc.b    27,"v"
  96.  
  97. * Escape w - Overflow off
  98. ;    dc.b    27,"w"
  99.  
  100. * Put your text here:
  101.     dc.b    "Lots of jubbly escape codes",13,10,13,10
  102.     dc.b    "By RUNRIG"
  103.  
  104. * Terminator:
  105.     dc.b    0
  106.  
  107.  
  108.